*** In order to estimate the results on table 2 the following Stata data base has to be used:
use "C:\Users\christiano\paper consignado revisao Rstats\Database Rstats\database_table_2.dta"

*** Defining cross section and time variables:
tsset cluster_variable time

*** Regressions of table 2

*** first column
areg  d_monthly_interest_rates dum_time1-dum_time30  type_of_credit if  dummy_authorized==1 & dum_t==0, absorb(identifier)cluster(identifier)robust 

*** second column
areg  d_monthly_new_loans dum_time1-dum_time30  type_of_credit if  dummy_authorized==1 & dum_t==0, absorb(identifier) cluster(identifier) robust 

*** third column
areg  d_monthly_interest_rates dum_time1-dum_time14  type_of_credit if  dummy_authorized==0 &  year_month<200404, absorb(identifier)cluster(identifier) robust 

*** fourth column
areg  d_monthly_new_loans dum_time1-dum_time14  type_of_credit if  dummy_authorized==0 &  year_month<200404, absorb(identifier)cluster(identifier)robust 
